1401 DATA PROCESSING SYSTEM 
PROGRAM CARD 



OPERATION 
CODE 


INSTRUCTION 


TRANSMISSION 

olUrrCU dT 


REQUIRED 

YrKJKU /V\ A KNo 


CAN INST. 
Be v.nAlrStU 


CONTENTS OF REGISTERS AT 
COMP. OF OPERATION 


REMARKS 


I 


A 


B 


1 


Read A Card 








NSI 


Ap 


081 




2 


Write A Line 








NSI 


Ap 


335 


B-Add. Reg. stands at 
333 with Print Storage 


2U 


Write Word Marks 








NSI 


dbb 


335 


B-Add. Reg. stands at 
333 with Print Storage 


3 


Write-Read 








NSI 


Ap 


081 


Printing occurs first 


4 


Punch A Card 








NSI 


Ap 


181 




4R 


Read-Punch Feed 








NSI 


dbb 


181 




5 


Read-Punch 








NSI 


Ap 


181 or 081 


Normally B-Add. Reg. 
is at 181 unless punch- 
ing is completed first 


6 


Write-Punch 








NSI 


Ap 


181 




6R 


Write-Read Punch 
Feed 








NSI 


dbb 


181 




7 


Write-Read-Punch 








NSI 


Ap 


181 or 081 


See remarks for Read- 
Punch 


8 


Start Read Feed 








NSI 


Ap 


Bp 




9 


Cfnrt Pnnfn Paon 
OlUi i r until reed 








NSI 


Ap 


Bp 




A (A) (B) 


Add 


B-field word mark 


B-field. A-field 
only if smaller 
than B-field 


Yes 


NSI 


A-Lw 


B-Lb 


Blanks are treated as 
zeros, unsigned fields 
are treated as positive 


S (A) (B) 


Subtract 


B-field word mark 


B-field. A-field 
only if smaller 

tknn R-fipIrl 


Yes 


NSI 


A-Lw 


B-Lb 


Same as remark for 
Add 


? (A) (B) 


Zero and Add 


B-field word mark 


B-field. A-field 
only if smaller 
than B-field 


Yes 


NSI 


A-Lw 


B-Lb 




! (A) (B) 


Zero and Subtract 


B-field word mark 


B-field. A-field 
only if smaller 
than B-field 


Yes 


NSI 


A-Lw 


B-Lb 


Can be used with a 
single address to 
change sign of field 


@ (A) (B) 


Multiply 




A and B-field 


No 


NSI 


A-Lc 


B-L of 
product field 


Product in low-order 
positions of B-field 


% (A) (R) 


Divide 




A-neia 


Klrt 

no 


NSI 


A-La 


Tens pos. 
of quot. 


Quotient is developed 
in high-order position 
of B-field 


R (\) 


Branch 






Kin 

riO 


NSI 


Bl 


Bl 


The l-address can be 
followed by a blank 
without a word mark 


B (1) d 


Branch if Indicator On 






No 


NSI 


Bl 


dbb 




B(l) (B)d 


Branch If Character 






Yes 


NSI 


Bl 


B-l 


The character at 
B-address is compared 
to the d-character 


V (\) (B) d 


Rrnnrh IF WM 
Dian(.n i r vv m 

and/or Zone 






Yes 


NSI 


Bl 


B-l 


Tests character at B 
for zone and/or WM 


D (A) (R) 


M\ove Numerical 


Single digit move 




Yes 


NSI 


A-l 


B-l 


Numeric bits of A moved 
to B. B zone bits are re- 
tained. 


L (A) (B) 


1 r>orl rhnrnrtprc tr> 

LUUU V«IIUI U^lcl 9 IU 

A-Word Mark 


A-fifalrl wnrrl mnrk 


A-field 


Yes 


NSI 


A-La 


B-La 


R.fiolrl xA/nrrl mo r If c n re* 

D IIClU WUIU 1 1 1 WJ 1 F^O Ul c 

cleared 


M (A) (B) 


Move Characters to 
A- or B-Word Mark 


First word mark 
encountered 




Yes 


NSI 


A-Lw 


Bp-Lw 




Y (A) (B) 


Move Zone 






Yes 


NSI 


A-l 


B-l 


Zone bits of A are moved 

¥r\ R R numArir rtitc nro 

to d. d nurneriL mis uic 

retained. 


Z (A) (B) 


Move Characters 
and Suppress Zeros 


A-field word mark 




No 


NSI 


A-La 


B + 1 


B-field word marks are 
cleared 


/ (A) (B) 


Set Word Mark 






Yes 


NSI 


A-l 


B-l 


Sets word marks in A- 
and B-address. Data 
is undisturbed 


□ (A) (B) 


Clear Word Mark 






Yes 


NSI 


A-l 


B-l 


Removes the word 
marks at the A and B 
location. Data is un- 
disturbed 


C (A) (b) 


Compare 


First word mark 
encountered 


A or B-field 


Yes 


NSI 


A-Lw 


B-Lw 


If B field is longer 
than A field unequal 
compare results 


E (A) (B) 


Move Characters 
and Edit 


B-field word mark 


A and B-field 


No 


NSI 


A-La 


B-Lb 


If zero suppression 
occurs B-Add. Reg. 
contains location of 
control zero + 1 


Fd 


Control Carriage 






No 


NSI 


dbb 


dbb 
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OPERATION 
CODE 


INSTRUCTION 


TRANSMISSION 
STOPPED BY 


REQUIRED 
WORD MARKS 


CAN INST. 
BE CHAINED 


CONTENTS OF REGISTERS AT 
COMP. OF OPERATION 


REMARKS 


1 


A 


B 


Q(A) 


Store A-Address 
Register 






No 


NSI 


A-3 


Ap 


Stores contents of A- 
address register in 

A -n r\ o r o c c 

M UUU 1 v jo 


K d 


Select Stacker 






No 


NSI 


dbb 


dbb 




N 


No Operation 






No 


NSI 


Ap 


Bp 


Program resumes at next 
Op code with a WM 


H (A) 


Store B-Address 
Register 






No 


NSI 


A-3 


Bp 


Stores contents of 
B-address register in 
A-add ress 


/(A) 


Clear Storage 


Stops at hundreds 
position of storage 
block involved 




Yes 


NSI 


A 


X-001 




• 


Halt 






No 


NSI 


Ap 


Bp 


Press start key to re- 
sume operation 


# (A) (B) 


Modify Address 


This is a 3-position 
Add operation 




No 


NSI 


A-3 


B-l or B-3 




M (% UX) (B) R 


Read Tape 


Inter-record gap or 
GM-WM in storage 




No 


NSI 


% 4X 


GM + 1 


GM is inserted in stor- 
age after last char- 
acter is read from tape 


M /OZ, l|V\ \A/ 


• 

W rite 1 a pe 


GM-WM 




No 


NSI 


% 4X 


GM + 1 




L (% UX) (B) R 


Read Tape with 
Word Marks 


Inter-record gap 
with a GM-WM in 
storage 




No 


NSI 


% 4X 


GM + 1 


Word separator char- 
acters are translated 
into WM in storage 


L (% UX) (B) W 


Write Tape with 
Word Marks 


GM-WM 




No 


NSI 


% 4X 


GM + 1 


WM in storage are writ- 
ten on tape as Word 
Separator Characters 


M (% CX) (B) R 


Read Compressed 
Tape 


Inter-record gap 




No 


NSI 


% 3X 


B + Lrecord 




P (A) (B) 


Move Characters to 
Record Mark or 
GM-WM 


GM-WM or record 
mark in A-field 




Yes 


NSI 


A + La 


B 4- La 


WM are not moved 
or cleared 


X (A) (B) 


Move and Insert 
Zeros 


GM-WM to left of 
high-order position 
of A-field 


High-order 
position of 
expanded 
fields 


No 


NSI 


A-field 
GM-WM 


A-field 
GM-WM 




M (% FO) (B) R 


Seek Disk 




GM-WM in 
B + 8 


No 


NSI 


B + 1 


B + 8 


Sends access arm to 
proper disk and track 


M(%FX) (B)R 


Read Disk 


End of sector 
(1 or 5) 


GM-WM mark 
in B + 8 
and B + 209 


No 


NSI 


B + 1 


B + 210 


Can READ 1 or 5 sec- 
tors depending on X- 
character in A-address 


M(%FX)(B)W 


Write Disk 


End of sector 
(1 or 5) 


GM-WM in 
B + 8 and 
B + 209 


No 


NSI 


B + 1 


B + 210 


Can WRITE 1 or 5 
sectors depending on 
X-character in A-address 


L(%FX)(B)R 


Read Disk with Word 
Marks 


End of sector 
(1 or 5) 


GM-WM in 
B + 8 and 
B -f 185 


No 


NSI 


B + 1 


B + 186 


176 characters and 
word marks are read 
from a sector 


L(%FX)(B)W 


Write Disk with 
Word Marks 


End of sector 
(1 or 5) 


GM-WM in 
B + 8 and 
B + 185 


No 


NSI 


B + 1 


B + 186 


176 characters and 
word marks are writ- 
ten on a sector 


M (% F3) (B) W 


Write Disk Check 


End of sector 
(1 or 5) 


GM-WM in 
B + 8 and 
B + 209 


No 


NSI 


B + 1 


B + 210 


A char, by char, com- 
parison is made of the 
data in storage with 
the disk record 


L(%F3)(B)W 


Write Disk Check 


End of sector 
(1 or 5) 


GM-WM in 
B + 8 and 
B + 185 


No 


NSI 


B 4- 1 


B + 186 


A char, by char, com- 
parison is made of the 
data in storage with 
the disk record 


M (% TO) (B) R 


Read from Console 
Printer 


GM-WM or press- 
ing Clear key 




No 


NSI 


% 30 


B + Lb 


Inquiry Request indi- 
cator must be ON 


M (% TO) (B) W 


Write On Console 
Printer 


GM-WM in core 
storage 




No 


NSI 


% 30 


B + Lb 




L (% TO) (B) R 


Read from Console 
Printer with WM 


GM-WM or press- 
ing Clear key 




No 


NSI 


% 30 


B + Lb _. 


Word marks are en- 
tered by pressing WM 
key 


L (% TO) (B) W 


Write On Console 
Printer with WM 


GM-WM in core 
storage 




No 


NSI 


%30 


B + Lb 


Characters with a WM 
are printed in red 


M (% TO) (B) W 


Line Space 


GM-WM 


GM-WM at 
B-Address 


No 


NSI 


% 30 


B + 1 





KEY TO ABBREVIATIONS 



A A-address of the instruction Lp The number of characters in a disk record 

B B-address of the instruction Lw The number of characters in the A- or B-field, whichever is smaller 

NSI Address of the next sequential instruction Ap The previous setting of the A-address register 

Bl Address of t he next instruction if a branch occurs Bp The previous setting of the B-address register 

La The number of characters in the A-field dbb The d-character and blank in the units and tens positions 

Lb The number of characters in the B-field dpp The d-character and the tens and units positions of the previous 

register setting 

Lc The number of characters in multiplicand field GM-WM Group-Mark with a Word-Mark 



